home *** CD-ROM | disk | FTP | other *** search
/ Asia X / Asia X.iso / mac / DATA / slideshow / 00001.ls next >
Encoding:
Text File  |  1995-08-28  |  250 b   |  18 lines
  1. on exitFrame
  2.   global slideSpeed
  3.   if slideSpeed = 0 then
  4.     set slideSpeed to 2
  5.   end if
  6.   if the timer < (slideSpeed * 7 * 60) then
  7.     go(the frame)
  8.   else
  9.     songUpdate()
  10.     startTimer()
  11.   end if
  12. end
  13.  
  14. on mouseUp
  15.   sound stop 1
  16.   play done
  17. end
  18.